home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 77
/
077.d81
/
pro shop boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
47 lines
5 poke53281,.:poke53280,.:printchr$(147)chr$(14)chr$(8)
10 gosub61000
11 poke214,9:print:printtab(14)"[154][212][200][197] [208][210][207] [211][200][207][208]"
12 printtab(8)"[193] [199]olf [200]andicap [208]rogram
13 [151]214,13:[153]:[153]"def (NULL)oading (NULL)(NULL)..."
16 [158]57812"psb font",8,0:[151]780,0:[151]781,0:[151]782,40:[158]65493
17 [158]57812"reader $c700",8,0:[151]780,0:[151]781,0:[151]782,199:[158]65493
18 [151]53272,27
100 [151]214,13:[153]:[153]"def (NULL)oading (NULL)rogram..."
102 [158]57812"pro.o",8,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
105 [137]60000
110 :
5025 :
6000 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
6010 [153]"(NULL) def(NULL)left$val (NULL)(NULL)(NULL) (NULL)left$(NULL)(NULL) (NULL)";
6015 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
6020 [129]i[178]1[164]20:[153]"(NULL) (NULL)";:[130]
6030 [153]"(NULL) print(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) (NULL)";
6035 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";:[151]2023,125:[151]56295,1
6040 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[142]
6045 :
7000 [161]k$:[139]k$[179][177][199](13)[167]7000
7005 [142]
7010 :
10000 [159]15,8,15,"s0:pro shop boot":[160]15:[148]"0:pro shop boot",8:[128]
10010 :
60000 [153]"stopload"[199](34)"pro shop"[199](34)",8"
60025 [153]"run"
60030 [151]43,1:[151]44,48:[151]12288,0
60035 [151]631,13:[151]632,13:[151]633,13:[151]198,3
60040 [162]
60999 :
61000 [151]214,15:[153]
61110 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
61120 [153]" print# "
61130 [153]" "
61140 [153]" "
61150 [153]" (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 77 "
61160 [153]" (NULL)ubscriptions 1-800-831-2694 "
61170 [153]" atnll (NULL)ights (NULL)eserved "
61180 [153]" "
61190 [153]" pokepospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
61200 au$[178]" (NULL)left$val (NULL)(NULL)(NULL) (NULL)left$(NULL)(NULL) ":[151]214,17:[153]
61205 [153][166]20[171][195](au$)[173]2)"print#"au$
61210 au$[178]"peeky peekarbara left$. (NULL)chulak (len) 1990":[151]214,18:[153]
61220 [153][166]20[171][195](au$)[173]2)"print#"au$"":[142]